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Abstract: 


This module communicates with the File Access Listener (FAL) at the 
remote node to close the specified file. 


| 
| 
| 
Facility: RMS | 
| 
Environment: VAX/VMS, executive mode | 

| 

} 


Author: James A. Krycka, Creation Date: 09-DEC-1977 
Modified By: 
v03-002 JAROIg? J A Krycka 07-SEP-1983 


hen it is necessary te build an Access message to con 
ool i FOP options on close, sonetruct the file s ecitication 
from the FWA instead of the NAM block, as RMS now keeps the 
FWA around for the duration of the file access. 
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«SBTTL DECLARATIONS 


Include Files: 


SDAPPLGDEF ; Define DAP prologue symbols 
SDAPHORDEF 3; Define DAP message header 
SDAPCNF DEF 3; Define DAP tll hee message 
SDAPATTDEF ; Define DAP Attributes message 
SDAPACCDEF ; Define DAP Access message 
SDAPCMPDEF ; Define DAP Access Complete message 
SIFBDEF ; Define IFAB symbols 
SNWADEF ; Define Network Work Area symbols 

; Macros: 

; None 


; Equated Symbols: 


ASSUME DAP$Q_DCODE_FLG EQ 0 
ASSUME NWASQ7FLG EQ O 


; Own Storage: 


None 
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~-SBTTL NTSCLOSE = PERFORM NETWORK CLOSE FUNCTION 


; specified file and to process selected FOP options and XABs. 
: Calling Sequence: 

BSBW NTSCLOSE 

; Input Parameters: 

R8 FAB address 


3 
4 
5 344 
; NTSCLOSE - engages in a DAP dialogue with the remote FAL to close the 
8 
8 
0 
: 


Impure Area address 


COOCCCOCoCoCoooo 


Implicit Inputs: 


User PRO and RDT XABs 
DAPSL_CRC_RSLT 
DAP$V_DAPTRC 
DAPSV_FOPDLT, FOPSCF, FOPSPL 
DAPSV_VAXVMS 
IFBSV_DLT, DMO, RWC, SCF, SPL 
IFBSL_FWA_PTR 
IFBSL_NWA_PTR 
NWASV_F TM_EOF 
NWASV_FTM_RETRV 
Output Parameters: 


RO Status code (RMS) 
R1i-R7 Destroyed 
AP Destroyed 


Implicit Outputs: 

None 
Completion Codes: 

Standard RMS completion codes 
Side Effects: 


Optionally, a file may be deleted, executed, printed, submitted 
(executed then deleted), or spooled (printed then deleted) on close 

at the remote node. Note that there is a distinction between the DAP 
execute and submit functions. Furthermore, the DCL SUBMIT/REMOTE 
command really maps into the DAP execute function (i.e., the file is. 
not deleted after the batch job completes). Also, the file's protection 
and revision information may be optionally altered on close. 


If an RMS$_CRC error is reper tee by FAL, then a message will be sent 


to the DECnet Event Logger (E 
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NTSCLOSE 
$TSTPT NTCLOSE 
VL —sTFBSL_NWA_PTR(R9) ,R7 


it the file Me: tate for write access 


build a mask (NWA 


$ _For SCLOSE, these are t 
BUILD_MASK: 
BBC 


#1FBsy WRTACC (R9),- 
SEND .¢ CAP_CLOSE 


MOVL # 

BSBW NTSSCAN. sec 

BLBC — RO, EXIT 

BICw2 #<<DAPSM_ DSP_ATT>!- 
SOAPS DSP ALL> i= 
<DAPS$M~DSP~KEY>i- 
Sy: eee DSP_ SUM>! = 

MavW = R2,NWASW_BUILD(R7) 

BEQL § SEND_CMP~CLOSE 


3:30:33 i Age Macro V04-00 


° 
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3; Entry point 
: Get address of NWA (and DAP) 


hen XABs are input on close. If so 


W_BUILD) that will Seeerning which optional DAP messages 
3; to send to FAL to modi ty the attributes of the fi 
: e 


le on close. 


TIM and PRO messages. 


: Build NWASW_DISPLAY 

: pers XABs if file was opened for 

* for read-only access 

: Signal this as a close operation 

; Scan user = chain and check FAL‘s 

3; capabilities; request mask put in R2 
: Branch on failure to complete scan 

: Remove these messages from build mask 
3 as their corresponding XABs are 

3; not input to the close operation 


; Save build mask 
; Branch if no pertinent XABs on chain 


Build and send DAP Access Complete (change-begin) message to partner. 


SEND_CMP BEGIN: 


AOVL #DAPSK_CMP_MSG,RO 
BSBu NTSBUICD_ HEA 
MOVB 


#DAPSK CHANGE ~B,(R5)+ 
BSBW = NTSBUICD TAIL 
BSBW = NTSTRAN 

BLBC RO-EXIT 


: (required message to modify file) 

: Get message type value 

: Construct message header 

; Store CTLFUNC field 

: Finish building message 

: Send Access Complete message to FAL 
; Branch on failure 


:* Build and send Ag Date and Time message to partner from the Revision 


: _Date and Time 


SEND_TIM: 
BBC #DAPS$V_DSP_TIM,- 
NuASY BUILB(R7S, - 


SEND_PRO 
NUASC ROTXABADR(R7) , R6 
NTSENTODE TIM_R 


BSBW NTSTRANSMIT 
BLBC RO,EXIT 


Build and send DAP Protection message 


SEND_PRO: 


3 Sept tones message) 
; Branch if Date and Time message 
should not be sent 


: Get address of user RDTXAB 
; Build message 


Send Date and Time message to FAL 
; Branch on failure 


to partner. 


; (optional message) 


+ 


NTOCLOSE NETWORK CLOS 
V04=000 NTSCLOSE - 


E1 
0002 ¢ 3 
56 ©6010 tf 


cae 


ILE 15-SEP-1984 23:50:5 AX/VMS Macro V04-00 p 5 
RFORG NETWORK CLOSE FUNCTIO 'SaSEp=1984 fer50;40 PARC eS Maceo YOE~ OO ~~ 


BBC #DAPSV_DSP Aye ; Branch if Protection message 
NWASW BUILB(R S,- should not be sent 


MOVL NWASC PROXABADR(R7) , R6 ; Get address of user PROXAB 
BSBW NTSENTODE _PRO ; Build message 

BSBW NISTRANSATT ; Send Protec sen <nessege to FAL 
BLBS RO,SEND_CMP_END ; Branch on suc 

EXIT: RSB :; Exit with RMS code in RO 
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NTSCLOSE - 


uw 
ou 
zr 
+ 3m 


POPPINININIPIPIDPOPIPDINPIPININPIPINDINININIAPININIPINININIPIPINPININPYIPYIPIPINPYPSPOPUPIPUPINIPOPNOPPoPonononopononons =o mmirn 


R 
Build and send DAP acgess Complete (change-end) message to partner if this is 
a change of file attributes on close sequence. 

OR 


Build and send DAP Access Complete (close) message to partner if this is a 
normal close operation. 


In either case, FOP options (DLT, SCF, SPL, ...) will be specified in this 
message. 


Oooo 
Oooo 


BD OOO W900 690909 69 69 00 00 09 09 09 00 SI INNS SS SSS SSN DD PPADS 


SEND_CMP_END: ; (required message to modify file) 
51 07 00 MOVL #DAPS$K_CHANGE_E,R1 3 Get function code 
ao BRB SEND_CAP 3; Join common code 
SEND_CMP CLOSE: ; (required woveaee for normal close) 
51 01 00 MOVL #DAPSK_CLOSE,R1 ; Get function code 
SEND_CMP: 3; Common code 
SSETBIT #NWASV_LAST_MSG,(R7) ; Declare this last message to block 
50 =—(07 MOVL #DAPSK~CMP_MSG,RO ; Get message type value 
FF92" 30 BSBW NTS$BUICD_HEAD ; Construct message header 
85 51 MOVB R1,(R5)+ ; Store CTLFUNC field 


; Map user specified FOP options to be performed on close into the DAP FOP 
; field. The IFAB bookeepping field contains those FOP options requested on 
; open/create combined (logically ORed) with those requested on close. 


In addition, the DLT, SCF, and SPL bits (treated as a set) will be mapped iff 
partner supports all of the requested options; else ignored for nou--they 
will be re-examined after Access Complete messages have been exchanged for 
potential alternate processing using a separate DAP access function. 


MOVL IFBSL_BKPBITS(R9) ,R1 ; Get IFAB bits 
CLRL R2 ; Zero resultant FOP bits 
#DAPSV_VAXVMS,(R7),10$ ; Branch if gar snae is not VAX/VMS 


A9 v0 
52.4 
34 C«#é&; BBC 

SMAPBIT <IFB$V-RWC-32>,DAP$V_RWC: 
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rs RWC; Map RWC bi 
; #AHKH SMAPBIT <IFBSV_DMO-32>,DAPSV_DMO; Map DMO bit ‘ 
: Note: this is not implemented in RMS32 
ASSUME IFBSV_SPL+1 EQ IFBSV_SCF 
29 ASSUME IFBS$V_SCF+1 EQ IFBSV_DLT 
26 ASSUME DAPSV_FOPSPL+1 EQ DAPS$V_FOPSCF 
27 ASSUME DAPSV_FOPSCF+1 EQ DAPSV_FOPDLT 
56 0s 51 03 O99 EF 55 10$: EXTZV #<IFBSV_SPL-32>,43,R1,R6; Extract the three FOP bits 
‘+ 2$ BEQL ; Branch if none set , 
eo. i €&F 5 EXTZV #DAPSV_FOPSPL,#43,- 3; Extract the three corresponding 
50 28 A7 38 DAP$Q_SYSCAP(R7) .RO : _SYSCAP bits 
56 50 CA 5 BICL2 R6 3; Mask out supported requests 
18 12 60 NEQ ; Branch if any are not supported 
61 $MAPBIT <IFBS$V_DLT-32>,DAPSV_DLT; Map DLT bit 
6¢ SMAPBIT <IFBSV_SCF-32>,DAPS$SV_SCF; Map SCF bit 
6 SMAPBIT <IFBSV_SPL-32>,DAPS$V_SPL; Map SPL bit 
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NYSCVT_BNG_EXT 


DAP$Q_SYSCAP fa5) 30$ 
#NWASU_FTM_RETRV,(R7), a ‘pranch § 


has 
Ata te wie nee (R5)43 store. tre checksum 
ish building message 


Send Access Complete message to FAL 
; Branch on failure 


NTSLOOK_FOR_CMP 
RO, CHKCRC 


EXIT1 
REEXAMINE_FOP 
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MOWMOO 
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RO, #<RMS$_CRC&*XFFFF> 
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3; Move data to correct register 


<z 


; Store FOP. as an extensi 


; Include file Level CRC checksum in message as required. 


Receive Access Complete message from partner (which may be preceded by other 
; _DAP messages in the pipe if we've prematurely terminated the access). 


; 
‘ 
; 
‘ 
: 
: 
° 


: Special case DAP level CRC checksum error reported by FAL. 


rtner ee ba support 
f file Bes oy retrieval mode 


Wait for response from FAL 
Branch on failure 
f there are no more FOP 
options to process 

y to process them another way 
; Exit with RMS cc e in RO 


Check for RMS$_CRC error from FAL 


Process DAP level CRC checksum error 
Exit with RMS code in RO 


11 
ILE 15-SEP-1984 23:50:5 AX/VMS 
mets 7 6:2 33 
«-SBTTL CHECK _CRC_ERROR 
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;++ 
; This routine processes an RMS$_CRC error returned by FAL on a close operation. 
; First, a DAP level CRC checksum error message is formatted and sent to the 

3; DECnet Event Logger. Then another Access Complete message is generated to 
; direct FAL to close the file. 


CRC_ERROR: : Entry point 

PUSHR #*M<RO> ; Save completion code on entry 

BSBW NTSCRC_LOGERR 3; Send message to DECnet Event Logger 
; No status code is returned 


3¢ 
; Build and send Access Complete message to close the file. 


CRC_SEND_ CMP: 


SSETBIT #NVASV_LAST_MSG, (R7) ; Declare this last message to block 
MOVL #DAP$K~CMP_MSG,RO ; Get message type value 

BSBW NT$BUICD_HEAD ; Construct message header 

MOVB #DAP$K_CCOSE,(R5)+ ; Store CTLFUNC field 

BSBW NT$BUICD_T : Finish building message 

BSBW NTSTRANSAIT ; Send Access Complete message to FAL 
BLBC RO,CRC_EXIT ; Branch on failure 


s* 
; Receive Access Complete message from partner. 
CRC_RECV_CMP: ; 

SSETBIT #DAPS$K_CMP_MSG,DAP$L_MSG_MASK(R7) 

3; Expect response of Access Complete msg 

cae sate NTSRECEIVE : Get reply from FAL 
z POPR #*M<RO> : Restore completion code on entry 
RSB ; Exit with RMS$_CRC code in RO 
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.SBTTL REEXAMINE_FOP 


3%9 

3; This routine —er to process selected FOP options via a separate DAP 

; access function (which have not been processed because the remote FAL does not 
; support passing these options in the DAP FOP field in the Access Complete 


message). 
REEXAMINE_FOP: ; Entry point 
ASSUME IFBS$V_SPL+1 EQ IFBSV_SCF 
ASSUME IFBSV_SCF+1 EQ IFBSV_DLT 
~~ we. Se OR. EXTZV #IFBSV_SPL,#3,(R9),RO ; Extract the three FOP bits 
$CASEB SELECTOR=RO- : Options requested: | 
DISPL=<- 3; Note: SCF takes precedence over SPL 
NOTHING- ; 81 8¢ 
ERRSUP= ; O10 Ise | 
EXECUTE- ; 8 13h? 9 
EXECUTE- ; _0_!SCF!ISPL ==> SCF 
DELETE- : ST et 
ERRSUP- ; DLT! 0 SPL 
SUBMIT=- ; OLT!SCF! 0 | 
SUBMIT=- ; DOLT!SCF!SPL ==> SCF!DLT 
> é | 
NOTHING: RMSSUC ; Return success ; 
05 RSB ; Exit with RMS code in RO 
ERRSUP: BRW NTSRMT_FOP2 ; Declare RMS$ SUPPORT error and 
; exit with RMS code in RO ; 
FB S11 SUBMIT: BRB ERRSUP : It's too late to per ore DAP submit 
; function--logically it's similar to 
; create function 
56 9604 DELETE: MOVB #DAPSK_ ERASE ,R6 ; Save DAP function code for erase 
03 (11 R REEX SEND ACC ; Delete the file 
56 ©6008 EXECUTE :MOVB #DAPSK_EXECUTE,R6 ; Save DAP function code for execute 


ag 
; Build and send Access message to partner. 


REEX_SEND ACC: 


SSETBIT #NWASV_LAST MSG, (R7) Declare this last message to block 

03 00 MOVL #DAP$K"ACC_MSG,RO Get message type value 
FEC6" 30 BSBW NTSBUICD_HEAD Construct mesSage header 

85 56 90 MOVB R6,(R5)+ Store ACCFUNC field 
5 01 0 MOVB #DAPSM_NONFATAL, (R5)+ Store ACCOPT field 


MOVL IFBSL_FWA_PTR(R9) ,R10 Get address of FWA (no need to save 


R10 as it was equal to R9 on entry) 
BSBW NTSGET_FILESPEC Store FILESPEC as a counted 


ASCII string 


Sete Ge Se Ge Ge Ge Ge Ge Fe Se Be Ge Ge 


5A 59 D0 MOVL R9,R10 Restore IFAB address to register 
FEB3' 30 BSBW = NT$BUILD_TAIL Finish building message 
eee" 30 BSBW MTSTRANSALT Send Access message to FAL 
08 5 E9 BLBC RO,EXIT Branch on failure 
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DN BBB ES BWIA NIAID NINININININNIN  DOCOCCOCOOCDOCOOCOCOCOOOOCOOOOCOOCOCOOoOO 
WWD BF NN LOO PB NHS OCC COCO OS DOODOOWI DDO WWW D VD DDDOAOOAAOAOAAAOOOAR 
NOAM WR OS ODO NAW EWN SO OO NAME UIN OOD NAME WW OC DOONAN WI FOOD NAUE Wr 


wn 
m 
o 
> 
Ww 
—_ 
DOGO OCOOGOOCOOCOCOCOCCOCOCOCOCOCOSSOS OCC COOCOOOCCOCOCOCOOCOCOCOOCOCOOOCOOCOOOCOOCOOO sz 
WOO OOOO O00 09 00 0900 09 09 09 09 SI NIN NNN NSN DS DS DS DS ODD DS TTT 


C 12 
E FILE i tas $333 AX/VMS Macro V04-00 Page 
Pp 5-SEP-1984 RMS.SRCINTOCLOSE.MAR; 1 


338 ; Receive Access Complete message from partner. 


400 
401 REEX_RECV_CMP: 
40 $SETBIT #DAPSK_CMP_MSG,DAPSL_MSG.. * MASK (R7) 


40 i Expect pengenee. of Access Complete msg 
404 BSBW NTSRECEIVE Get reply from FA 
tbe EXIT2: RSB : Exit with RMS code in RO 


407 «END 3; End of module 
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Symbol table 5-SEP-1984 16:20:19 CRMS.SRCINTOCLOSE.MAR; 1 (7) vO 
$$.PSECT_EP = 0000000 DAP$L_DEV 0000062 
$SCOUNT = $600008 DAP$L_EBK 20900078 
SSRMSTEST = 8388010 AP$L_FOP1 0000064 
SSRMS_PBUGCHK = 00000010 APSL-FOP2 90000044 
$SSRMS_TBUGCHK = 00000008 DAP$L_HBK 0000074 
$SSRMS_UMODE = PROD R OS PS$L_MRN HOON n0 38 
BUILD" MASK 8 QOOO0A R 01 DAP$L_MSG_MASK 000001C 
CHKCRE 0000006 R 01 $L_SB 000007C 
CRC_ERROR a4 a! R 01 DAPSL_SSPWA 0000080 
CRC_EXIT 00000103 R 01 APSL_TEMP 0000090 
CRC_RECV_CMP QOOOOOFB R 01 DAPSM_BITCNT = 00000008 
CRC_SEND_ CMP BOR bE R 01 DAPSM_CMPFMT = 00000008 
DAPSB_ACCFUNC 00000040 APS$M_DMO = 00002000 
DAP$B_ACCO 00000041 DAP$M_DSP_3NAM = 00000200 
DAP$B_BITCNT 00000035 DAPSM_OSP_ALL = 00000004 
AP$B_BK 00000050 DAPSM_DSP_ATT = 00000001 
APSB_BS 00000052 DAPS$M_DSP_KEY = 00000002 
DAP$B_CMPFUNC 00000040 DAP$M_DSP” SUM = 00000008 
DAP$B_DATATYPE 00000044 DAP$M_EMBEDDED = 00000010 
DAPS$B_DCODE_F ID 00000019 DAPS$M_ = 00000002 
DAP$B_DCODE_MAC 00000018 DAP$M_GO_NOGO = 00000010 
DAP$5_DCODE MSG QO00001A DAP$M_ IMAGE = 00000002 
DAP$B_DE 00000047 APSM_LSA = 00000040 
DAP$B_ECONUM 00000045 DAP$M_MACY11 = 00000080 
DAPSB_FA 44 9446944 DAP$M_M = 00000010 
DAPS$B_FILESYS 0000004 DAP$M_NONF ATAL = 00000001 
DAP$B_FLAGS 00000031 DAPSM_SEGMENT = 00000040 
D _FS2 00000051 DAPSM_TMP1$ = 000000C0 
DAP$B_LEN256 00000034 DAPSM_TMP2$ = Q000F C00 
DAP$B_LENGTH 00000033 DAPSM_TMP3$ = 00020000 
AP$B_ORG 00000045 DAPSM_TMP4$ = 01000000 
DAP$B_OSTYPE 00000042 DAPSM_TMP5$ = F0000000 
DAP$B_RAT 00000047 DAP$M_ZERO = 00000080 
DAPS$B_RFM 00000046 DAP$Q_DCODE_FLG 00000000 | 
DAP$B_SHR 00000043 DAPS$Q_F ILESPEC 00000044 
DAP$B_STREAMID 00000032 DAP$Q_MSG_BUF 1 00000008 | 
DAP$B_TYPE 00000030 DAP$Q_MSG_BUF2 00000010 
DAP$B_USRNUM 00000046 DAP$Q_PASSWORD 00000050 
DAP$B_USRVER 00000048 DAP$Q_RUNSYS 0000005C 
DAPS$B_VERNUM 06000044 DAP$Q_SYSCAP 00000088 | 
DAP$B_X_FIELD 00000024 DAP$Q_SYSPEC 00000038 
P$C_BCN 000000C0 DAP$V_DAPCRC = 00000015 
DAP$K_ACC_MSG = 00000003 _OLT = 00000016 
BLN S444 AP$V_DSP_PRO = 00000005 
DAP$K_CHANGE_B = 0000 006 DAP$V_DSP-TIM = 00000004 
DAP$K_ CHANGE _E = a4 DAP$V_FOPDLT = 0000001F 
DAP$K_CLOSE = 00000001 DAPS$V_FOPSCF = QOQOOOIE 
DAP$K_CMP_MSG = 00000007 DAP$V_FOPSPL = 0000001D 
DAPS$K_ERASE = 00000004 DAPSV_RWC = 00000001 
DAPSK_EXECUTE = 00000008 DAP$V_SCF = 00000015 
DAPSK—F IX = 00000001 DAPS$V_SPL = 00000014 
DAP$K~SEQ = 00000000 DAPSV_VAXVAS = 00000034 
DAP$L_ALQ1 000004C DAP$W_BLS tee 
DAPS$L_ATTMENU ated DAPS$W_BUFSIZ 00 O08 
DAPSL_CMWA 000030 P$W_CHEC 000004 
DAP$L-CRC_RSLT 00000020 DAP$W"DEQ1 ati es 
DAP$L_DCODE_STS 00000018 DAPSW-DISPLAY1 000004C 
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NTOCLOSE NETWORK CLOSE FILE 13-SE0- 1908 5 X/VMS Macro 
Symbol table -SEP-1984 1 MS.SRCINTOC 
DAPSW_FFB 90000078 NWASL_XLTBUFFLG C 
CAPSW_LRL 000007 NWASL_XLTCNT 8 
DAPSW_MRS 3808 ne NWASL—XLTMAXINDX 4 
DAP$W_PARTNER 000006 NWASL-XLTSIZ 0 
DAP$W" VERSION 00000004 NWA$SQ-ACS 0 44 
ELETE 000001 : R 01 NWA$Q_BIGBUF 8 70 
ERRSUP 00000123 R 01 NWASQ~BLD FO 
EXECUTE 0000012D R 01 NWASQ_FLG 0 00 
EXIT 000000 ? 5 01 NWA$Q~INODE 0 5¢ 
EX1T1 000000D5 R 01 NWASQ_10SB 8 D8 
Ex1T2 00000158 R 01 NWA$SQ_LNODE 0 
IFB$L_BKPBITS = eae NWASQ_LOGNAME 8 ¢ 
IFBSL_FWA_PTR = 00000038 NWA$Q_NCB 64 
IFBSL_NWA_PTR = 0000003C NWASQ_RCV 0 58 
IFBSV_DLT = 00000028 NWASQ-SAVE DESC 0 0 
IFBSV_RWC = 00000027 NWASQ_XLTBOF1 0 4C 
IFBSV_SCF = 0000002A NWASQ_XLTBUF 2 0 54 
IFBSV_SPL = 444 194 _XMT 0 E8 
IFBSV_WRTACC = 000000350 NWAS$T_ACSBUF 0 6C 
NOTHIN 0000011F R 01 NWAST_AUXBUF 0 EO 
NTSBUILD_HEAD eeeeeeee =X 01 NWAST_DAP 0 00 
NTSBUILD_TAIL eeeeeeee =X 01 NWAS$T_INODEBUF 0 AC 
NTSCLOSE 00000000 RG 01 NWAST_ITM_ATTR 0 00 
NTSCRC_LOGERR eeeeeeee =X 01 NWAST_ITM_END 0 24 
NTSCVT_BN4 EXT aeeeeeee =X 01 NWAST_ITM_L 0 00 
NTSENCODE_PRO eeeeeeee =X 0] NWAST_ITM_MAXINDX 0 18 
NTSENCODETIM_R eeeeeeee = X 01 NWAST_ITM-STRING 0 0c 
NTSGET_FICESPEC eeeeeeee = X 0] NWAST_NCBBU 0 2c 
TSLOOR_FOR_CM eeeeeeee =X 01 NWAST_NODEBUF 0 69 
NTSRECETVE aeeeeeee =X 0] NWAST_RCVBUF 0 AO 
NTSRMT_FOP2 aeeneeee =X 01 NWAST_SCA 0 00 
NTSSCAN_XABCHN tereeeee = X (01 NWAST_ TEMP 0 20 
NTSTRANSMI aeeeeeee =X = 01 NWAST_XLTBUF1 0 AC 
NWASB_ALLXABCNT 0000011C NWAST_XLTBUF 2 0000035AC 
NWASB_DAP_RAC 000000C9 NWAST_XMTBUF 000003C0 
NWASB_FILESYS 000000C5 NWASV_FTM_RETRV = 0000001A 
NWASB_KEYXABCNT 0000011D NWASV_LAST_MSG = 00000000 
NWASS"NETSTRSIZ 0000016F NWASW"BUIL 000000D2 
| NwASE_NODBUF S12 00000168 NWASW_DAPBUF SIZ QOOOO0CA 
NWASB_ORG 000000C6 NWASW_DIR 000000CC 
NWASB_OSTYPE 000000C4 NWASW_DISPLAY 00000000 
NWASB_RFM 000000C7 NWASW_FIL OOOO00CE 
NWASB_RMS_RAC 000000C8 NWASW_ JNLRABJOP 0000011E 
NWASC_BLN ttt 44 PIOSA_TRAC teeeeere =X 01 
NWASK_ 0000800 RECV_CmP 000000C9 R 01 
NWASL_ALLXABADR 00000100 REEXAMINE_FOP ee ae: R 01 
NWA$L_DATXABADR 00000104 REEX_RECV_CMP 00000153 R 01 
NWASL_DEV 000000C0 REEX~SEND_ACC 00000130 R 01 
NWASL_FHCXABADR 00000108 RMS$_CRC aeeerere = X 01 
NWASL_KE YXABADR 0000010C SEND_CMP 60000066 R 01 
NWASL_MSG 00000004 SEND_CMP_BEGIN 00000021 R 01 
NWASL_PROXABADR 00000110 SEND_CMP_CLOSE PRON | a 01 
NWASL_RDTXABADR 00000114 SEND_CMP_END 000000 g R 01 
NWASL~ SAVE_FLGS 0000 198 SEND_PRO 0000047 R 01 
NWASL— SUMXABA 3008 1 SEND-TIM 00 B03) R 01 
NWASL_ THREAD 0 ore SUBMTT 0000126 R 01 
NWASL_XLTATTR 00000238 TPTSL_NTCLOSE teeeeeee § X (1 
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NTOCLOSE NETWORK CLOSE FILE i ot Sth 9 $333 753 
Psect synopsis “SEP=1984 16:20:19 

bm eee we ewenece caw} 

! Psect synopsis ! 

Fonmwmmaoncnmecoe eeecee+ 
PSECT name Allocation PSECT No. Attributes 
» MS , 00000000 <( af 
NF SNE TWORK Q0000015C ( 348.) QO Ic CON REL GBL NOSHR 
SABSS 00000800 ( 2048.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR 


$wwowewococeccccccoeccccon 


Phase Page faults CPU Time Elapsed Time 
Initialization | 36 00:00:00.09 00:00 00-38 
Command processing 12 00:00:00.60 00:00:03.00 
Pass 1 273 00:00:09.60 BO eR Re kr 
Symbol table sort 0 00:00:01.17 00:00:01.84 
Pass 2 88 00:00:01.82 00:00:05.00 
Symbol table output 28 00:00:00. 24 00:00:01.74 
Psect synopsis output 2 00:00:00.00 00:00:00.08 
Cross-reference output 0 oes So Op 8882-88 
Assembler run totals 548 00:00:13.52 00:00:34.99 


The working set Limit was 1350 pages. : 
47867 bytes (94 pages) of virtual memory were used to buffer the intermediate cod 


e. 
There were 50 pages of symbol table space allocated to hold 802 non-local and 14 local symbols. 


407 source Lines were read in Pass 1, producing 14 object records in Pass 2 
24 pages of virtual memory were used to define 23 macros. 


wore nee n mene we m ee momen oece st 


Macro Library name 


-$255$DUA28: CRMS.OBJIJRMS.MLB; 1 : 15 
$255$DUA28: (SYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 19 


1066 GETS were required to define 19 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOCLOSE/OBJ=OBJ$:NTOCLOSE MSRC$:NTOCLOSE/UPDATE=(ENH$:NTOCLOSE) +LIB$:RMS/LIB 


QO ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
14 Jee P USR EXE RD NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
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